#clean array value
#BWSPOOL "START"
#BWSPOOL "\r\n"
for {set x 0} {$x<=999} {incr x} {
SETVAL array1($x)=[GETVAL init]
SETVAL array2($x)=[GETVAL init]
SETVAL array3($x)=[GETVAL init]
SETVAL array4($x)=[GETVAL init]
}
#BWSPOOL "END"
#BWSPOOL "\r\n"
SETVAL SQLSTATE=CLEAR_TABLE
